Espero que te ajude

Olá bilokas,

Infelizmente deu o mesmo erro que deu em outros códigos que tentei adaptar.
Na linha: "For ROW = 2 To IsLista.ListItems.Count + 1" aparece a mensagem "Variável naõ definida e em seguida a mensagem "Não é possível executar o código no modo interromper".

Alguma luz para a situação?

Este erro é devido a falta da Declaração da Variável "ROW", e irá ter problemas na Variável "Col" tambem, no inicio da rotina coloque :
Dim ROW as Integer
Dim Col as Integer

Isto deverá resolver a incompatibilidade.

Uma dica, evitem dar nomes de Variáveis com o nome igual ao da Propriedade, Row e Rows são propriedades e pode futuramente dar algum problema, se querem utilizar coloquem uma letrana frente para diferencia-las, tipo iROW, iCol.

Faça os testes e qq coisa retorne.

[]s

Olá Amigos,

Quero agradecer a todos pelas dicas...
revendo direitinho consegui resolver o problema com a ajuda de vocês.

Obrigado a todos.

Edmaxy

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.